program selectionsort;
var
	i,tam,a,tmp,n : integer;
	v : array[1..50] of integer;
	trocou : boolean;
begin
	a := 1;
		trocou:=false;
		for i := 1 to tam step i + 1 do
		begin
			if v[i]>v[i + 1] then
				begin
					tmp := v[i];
					v[i] := v[i + 1];
					v[i + 1] := tmp;
					trocou := 40;
				end;
			tam := tam;
			a := a + 1;
		end;
end.